home *** CD-ROM | disk | FTP | other *** search
/ CD Fun House 8 / CD Funhouse Version 8.0 - Wayzata Technology (7013) (1993).iso / pc / mac / __intere / sfx_stac.k_4 / card_3977.txt < prev    next >
Text File  |  1989-08-01  |  14KB  |  545 lines
  1. -- card: 3977 from stack: in.k_4
  2. -- bmap block id: 3689
  3. -- flags: 0000
  4. -- background id: 2594
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on openCard
  8.   global playWhat
  9.   set hilite of button ID 4 to TRUE
  10.   set hilite of button ID 5 to FALSE
  11.   set hilite of button ID 6 to FALSE
  12.   set hilite of button ID 7 to FALSE
  13.   set hilite of button ID 8 to FALSE
  14.   set hilite of button ID 9 to FALSE
  15.   set hilite of button ID 10 to FALSE
  16.   set hilite of button ID 11 to FALSE
  17.   set hilite of button ID 12 to FALSE
  18.   set hilite of button ID 13 to FALSE
  19.   set hilite of button ID 20 to FALSE
  20.   set hilite of button ID 21 to FALSE
  21.   put "Beat" into playWhat
  22.   put quote before playWhat
  23.   put quote after playWhat
  24. end openCard
  25.  
  26.  
  27. -- part 1 (button)
  28. -- low flags: 00
  29. -- high flags: 0000
  30. -- rect: left=53 top=74 right=150 bottom=417
  31. -- title width / last selected line: 0
  32. -- icon id / first selected line: 0 / 0
  33. -- text alignment: 1
  34. -- font id: 0
  35. -- text size: 12
  36. -- style flags: 0
  37. -- line height: 16
  38. -- part name: Keys
  39. ----- HyperTalk script -----
  40. on mouseUp
  41.   global playWhat
  42.   put playWhat into how
  43.   put " tempo 25" after how
  44.   get the clickloc
  45.   put item 1 of it into noteNum
  46.   put 1 + (noteNum - 52) DIV 13 into noteNum
  47.   put "36 38 40 41 43 45 47 48 50 52 53 55 57 59 60 62" && "64 65 67 69 71 72 74 76 77 79 81 83" into keymap
  48.   put word noteNum of keymap into realNote
  49.   put how && realNote into cmd
  50.   put "Play " before cmd
  51.   do cmd
  52.   repeat while the sound is not "done"
  53.   end repeat
  54. end mouseUp
  55.  
  56.  
  57.  
  58.  
  59. -- part 2 (button)
  60. -- low flags: 00
  61. -- high flags: 0000
  62. -- rect: left=454 top=290 right=317 bottom=482
  63. -- title width / last selected line: 0
  64. -- icon id / first selected line: 2162 / 2162
  65. -- text alignment: 1
  66. -- font id: 0
  67. -- text size: 12
  68. -- style flags: 0
  69. -- line height: 16
  70. -- part name: 111111
  71. ----- HyperTalk script -----
  72. on mouseUp
  73.   visual effect scroll down
  74.   go to card 1
  75. end mouseUp
  76.  
  77.  
  78.  
  79. -- part 3 (button)
  80. -- low flags: 00
  81. -- high flags: 0000
  82. -- rect: left=19 top=293 right=315 bottom=48
  83. -- title width / last selected line: 0
  84. -- icon id / first selected line: 9301 / 9301
  85. -- text alignment: 1
  86. -- font id: 0
  87. -- text size: 12
  88. -- style flags: 0
  89. -- line height: 16
  90. -- part name: to 2
  91. ----- HyperTalk script -----
  92. on mouseUp
  93.   visual effect scroll left fast
  94.   go to card 2
  95. end mouseUp
  96.  
  97.  
  98.  
  99. -- part 4 (button)
  100. -- low flags: 00
  101. -- high flags: C006
  102. -- rect: left=106 top=190 right=212 bottom=213
  103. -- title width / last selected line: 0
  104. -- icon id / first selected line: 0 / 0
  105. -- text alignment: 1
  106. -- font id: 0
  107. -- text size: 12
  108. -- style flags: 0
  109. -- line height: 16
  110. -- part name: Beat It
  111. ----- HyperTalk script -----
  112. on mouseUp
  113.   global playWhat
  114.   set hilite of button ID 4 to true
  115.   set hilite of button ID 5 to FALSE
  116.   set hilite of button ID 6 to FALSE
  117.   set hilite of button ID 7 to FALSE
  118.   set hilite of button ID 8 to FALSE
  119.   set hilite of button ID 9 to FALSE
  120.   set hilite of button ID 10 to FALSE
  121.   set hilite of button ID 11 to FALSE
  122.   set hilite of button ID 12 to FALSE
  123.   set hilite of button ID 13 to FALSE
  124.   set hilite of button ID 20 to FALSE
  125.   set hilite of button ID 21 to FALSE
  126.   put "Beat" into playWhat
  127.   put quote before playWhat
  128.   put quote after playWhat
  129. end mouseUp
  130.  
  131.  
  132.  
  133. -- part 5 (button)
  134. -- low flags: 00
  135. -- high flags: 8006
  136. -- rect: left=106 top=212 right=234 bottom=213
  137. -- title width / last selected line: 0
  138. -- icon id / first selected line: 0 / 0
  139. -- text alignment: 1
  140. -- font id: 0
  141. -- text size: 12
  142. -- style flags: 0
  143. -- line height: 16
  144. -- part name: HAL
  145. ----- HyperTalk script -----
  146. on mouseUp
  147.   global playWhat
  148.   set hilite of button ID 4 to FALSE
  149.   set hilite of button ID 5 to TRUE
  150.   set hilite of button ID 6 to FALSE
  151.   set hilite of button ID 7 to FALSE
  152.   set hilite of button ID 8 to FALSE
  153.   set hilite of button ID 9 to FALSE
  154.   set hilite of button ID 10 to FALSE
  155.   set hilite of button ID 11 to FALSE
  156.   set hilite of button ID 12 to FALSE
  157.   set hilite of button ID 13 to FALSE
  158.   set hilite of button ID 20 to FALSE
  159.   set hilite of button ID 21 to FALSE
  160.   put "HAL" into playWhat
  161.   put quote before playWhat
  162.   put quote after playWhat
  163. end mouseUp
  164.  
  165.  
  166.  
  167. -- part 6 (button)
  168. -- low flags: 00
  169. -- high flags: 8006
  170. -- rect: left=106 top=234 right=256 bottom=213
  171. -- title width / last selected line: 0
  172. -- icon id / first selected line: 0 / 0
  173. -- text alignment: 1
  174. -- font id: 0
  175. -- text size: 12
  176. -- style flags: 0
  177. -- line height: 16
  178. -- part name: Kirk Here
  179. ----- HyperTalk script -----
  180. on mouseUp
  181.   global playWhat
  182.   set hilite of button ID 4 to FALSE
  183.   set hilite of button ID 5 to FALSE
  184.   set hilite of button ID 6 to TRUE
  185.   set hilite of button ID 7 to FALSE
  186.   set hilite of button ID 8 to FALSE
  187.   set hilite of button ID 9 to FALSE
  188.   set hilite of button ID 10 to FALSE
  189.   set hilite of button ID 11 to FALSE
  190.   set hilite of button ID 12 to FALSE
  191.   set hilite of button ID 13 to FALSE
  192.   set hilite of button ID 20 to FALSE
  193.   set hilite of button ID 21 to FALSE
  194.   put "Kirk" into playWhat
  195.   put quote before playWhat
  196.   put quote after playWhat
  197. end mouseUp
  198.  
  199.  
  200.  
  201. -- part 7 (button)
  202. -- low flags: 00
  203. -- high flags: 8006
  204. -- rect: left=106 top=256 right=278 bottom=237
  205. -- title width / last selected line: 0
  206. -- icon id / first selected line: 0 / 0
  207. -- text alignment: 1
  208. -- font id: 0
  209. -- text size: 12
  210. -- style flags: 0
  211. -- line height: 16
  212. -- part name: Nasty Boys
  213. ----- HyperTalk script -----
  214. on mouseUp
  215.   global playWhat
  216.   set hilite of button ID 4 to FALSE
  217.   set hilite of button ID 5 to FALSE
  218.   set hilite of button ID 6 to FALSE
  219.   set hilite of button ID 7 to TRUE
  220.   set hilite of button ID 8 to FALSE
  221.   set hilite of button ID 9 to FALSE
  222.   set hilite of button ID 10 to FALSE
  223.   set hilite of button ID 11 to FALSE
  224.   set hilite of button ID 12 to FALSE
  225.   set hilite of button ID 13 to FALSE
  226.   set hilite of button ID 20 to FALSE
  227.   set hilite of button ID 21 to FALSE
  228.   put "NastyBoys" into playWhat
  229.   put quote before playWhat
  230.   put quote after playWhat
  231. end mouseUp
  232.  
  233.  
  234.  
  235. -- part 8 (button)
  236. -- low flags: 00
  237. -- high flags: 8006
  238. -- rect: left=106 top=278 right=298 bottom=237
  239. -- title width / last selected line: 0
  240. -- icon id / first selected line: 0 / 0
  241. -- text alignment: 1
  242. -- font id: 0
  243. -- text size: 12
  244. -- style flags: 0
  245. -- line height: 16
  246. -- part name: No need to Fear
  247. ----- HyperTalk script -----
  248. on mouseUp
  249.   global playWhat
  250.   set hilite of button ID 4 to FALSE
  251.   set hilite of button ID 5 to FALSE
  252.   set hilite of button ID 6 to FALSE
  253.   set hilite of button ID 7 to FALSE
  254.   set hilite of button ID 8 to TRUE
  255.   set hilite of button ID 9 to FALSE
  256.   set hilite of button ID 10 to FALSE
  257.   set hilite of button ID 11 to FALSE
  258.   set hilite of button ID 12 to FALSE
  259.   set hilite of button ID 13 to FALSE
  260.   set hilite of button ID 20 to FALSE
  261.   set hilite of button ID 21 to FALSE
  262.   put "Fear" into playWhat
  263.   put quote before playWhat
  264.   put quote after playWhat
  265. end mouseUp
  266.  
  267.  
  268.  
  269. -- part 9 (button)
  270. -- low flags: 00
  271. -- high flags: 8006
  272. -- rect: left=277 top=188 right=210 bottom=421
  273. -- title width / last selected line: 0
  274. -- icon id / first selected line: 0 / 0
  275. -- text alignment: 1
  276. -- font id: 0
  277. -- text size: 12
  278. -- style flags: 0
  279. -- line height: 16
  280. -- part name: Beep
  281. ----- HyperTalk script -----
  282. on mouseUp
  283.   global playWhat
  284.   set hilite of button ID 4 to FALSE
  285.   set hilite of button ID 5 to FALSE
  286.   set hilite of button ID 6 to FALSE
  287.   set hilite of button ID 7 to FALSE
  288.   set hilite of button ID 8 to FALSE
  289.   set hilite of button ID 9 to TRUE
  290.   set hilite of button ID 10 to FALSE
  291.   set hilite of button ID 11 to FALSE
  292.   set hilite of button ID 12 to FALSE
  293.   set hilite of button ID 13 to FALSE
  294.   set hilite of button ID 20 to FALSE
  295.   set hilite of button ID 21 to FALSE
  296.   put "Beeep" into playWhat
  297.   put quote before playWhat
  298.   put quote after playWhat
  299. end mouseUp
  300.  
  301.  
  302.  
  303. -- part 10 (button)
  304. -- low flags: 00
  305. -- high flags: 8006
  306. -- rect: left=277 top=210 right=232 bottom=421
  307. -- title width / last selected line: 0
  308. -- icon id / first selected line: 0 / 0
  309. -- text alignment: 1
  310. -- font id: 0
  311. -- text size: 12
  312. -- style flags: 0
  313. -- line height: 16
  314. -- part name: He's Dead Jim
  315. ----- HyperTalk script -----
  316. on mouseUp
  317.   global playWhat
  318.   set hilite of button ID 4 to FALSE
  319.   set hilite of button ID 5 to FALSE
  320.   set hilite of button ID 6 to FALSE
  321.   set hilite of button ID 7 to FALSE
  322.   set hilite of button ID 8 to FALSE
  323.   set hilite of button ID 9 to FALSE
  324.   set hilite of button ID 10 to TRUE
  325.   set hilite of button ID 11 to FALSE
  326.   set hilite of button ID 12 to FALSE
  327.   set hilite of button ID 13 to FALSE
  328.   set hilite of button ID 20 to FALSE
  329.   set hilite of button ID 21 to FALSE
  330.   put "Dead" into playWhat
  331.   put quote before playWhat
  332.   put quote after playWhat
  333. end mouseUp
  334.  
  335.  
  336.  
  337. -- part 11 (button)
  338. -- low flags: 00
  339. -- high flags: 8006
  340. -- rect: left=277 top=232 right=254 bottom=421
  341. -- title width / last selected line: 0
  342. -- icon id / first selected line: 0 / 0
  343. -- text alignment: 1
  344. -- font id: 0
  345. -- text size: 12
  346. -- style flags: 0
  347. -- line height: 16
  348. -- part name: Nasty
  349. ----- HyperTalk script -----
  350. on mouseUp
  351.   global playWhat
  352.   set hilite of button ID 4 to FALSE
  353.   set hilite of button ID 5 to FALSE
  354.   set hilite of button ID 6 to FALSE
  355.   set hilite of button ID 7 to FALSE
  356.   set hilite of button ID 8 to FALSE
  357.   set hilite of button ID 9 to FALSE
  358.   set hilite of button ID 10 to FALSE
  359.   set hilite of button ID 11 to TRUE
  360.   set hilite of button ID 12 to FALSE
  361.   set hilite of button ID 13 to FALSE
  362.   set hilite of button ID 20 to FALSE
  363.   set hilite of button ID 21 to FALSE
  364.   put "Nasty" into playWhat
  365.   put quote before playWhat
  366.   put quote after playWhat
  367. end mouseUp
  368.  
  369.  
  370.  
  371. -- part 12 (button)
  372. -- low flags: 00
  373. -- high flags: 8006
  374. -- rect: left=277 top=254 right=276 bottom=420
  375. -- title width / last selected line: 0
  376. -- icon id / first selected line: 0 / 0
  377. -- text alignment: 1
  378. -- font id: 0
  379. -- text size: 12
  380. -- style flags: 0
  381. -- line height: 16
  382. -- part name: Over the Rainbow
  383. ----- HyperTalk script -----
  384. on mouseUp
  385.   global playWhat
  386.   set hilite of button ID 4 to FALSE
  387.   set hilite of button ID 5 to FALSE
  388.   set hilite of button ID 6 to FALSE
  389.   set hilite of button ID 7 to FALSE
  390.   set hilite of button ID 8 to FALSE
  391.   set hilite of button ID 9 to FALSE
  392.   set hilite of button ID 10 to FALSE
  393.   set hilite of button ID 11 to FALSE
  394.   set hilite of button ID 12 to TRUE
  395.   set hilite of button ID 13 to FALSE
  396.   set hilite of button ID 20 to FALSE
  397.   set hilite of button ID 21 to FALSE
  398.   put "Rainbow" into playWhat
  399.   put quote before playWhat
  400.   put quote after playWhat
  401. end mouseUp
  402.  
  403.  
  404.  
  405. -- part 13 (button)
  406. -- low flags: 00
  407. -- high flags: 8006
  408. -- rect: left=277 top=276 right=298 bottom=420
  409. -- title width / last selected line: 0
  410. -- icon id / first selected line: 0 / 0
  411. -- text alignment: 1
  412. -- font id: 0
  413. -- text size: 12
  414. -- style flags: 0
  415. -- line height: 16
  416. -- part name: Underdog is Here
  417. ----- HyperTalk script -----
  418. on mouseUp
  419.   global playWhat
  420.   set hilite of button ID 4 to FALSE
  421.   set hilite of button ID 5 to FALSE
  422.   set hilite of button ID 6 to FALSE
  423.   set hilite of button ID 7 to FALSE
  424.   set hilite of button ID 8 to FALSE
  425.   set hilite of button ID 9 to FALSE
  426.   set hilite of button ID 10 to FALSE
  427.   set hilite of button ID 11 to FALSE
  428.   set hilite of button ID 12 to FALSE
  429.   set hilite of button ID 13 to TRUE
  430.   set hilite of button ID 20 to FALSE
  431.   set hilite of button ID 21 to FALSE
  432.   put "Here" into playWhat
  433.   put quote before playWhat
  434.   put quote after playWhat
  435. end mouseUp
  436.  
  437.  
  438.  
  439. -- part 18 (button)
  440. -- low flags: 00
  441. -- high flags: 0000
  442. -- rect: left=49 top=293 right=315 bottom=78
  443. -- title width / last selected line: 0
  444. -- icon id / first selected line: 27009 / 27009
  445. -- text alignment: 1
  446. -- font id: 0
  447. -- text size: 12
  448. -- style flags: 0
  449. -- line height: 16
  450. -- part name: to 4
  451. ----- HyperTalk script -----
  452. on mouseUp
  453.   visual effect barn door close
  454.   go to card 4
  455. end mouseUp
  456.  
  457.  
  458.  
  459. -- part 19 (button)
  460. -- low flags: 00
  461. -- high flags: A004
  462. -- rect: left=23 top=219 right=260 bottom=71
  463. -- title width / last selected line: 0
  464. -- icon id / first selected line: 0 / 0
  465. -- text alignment: 1
  466. -- font id: 0
  467. -- text size: 12
  468. -- style flags: 0
  469. -- line height: 16
  470. -- part name: Toons
  471. ----- HyperTalk script -----
  472. on mouseUp
  473.   visual effect barn door open
  474.   go to card 4
  475. end mouseUp
  476.  
  477.  
  478.  
  479. -- part 20 (button)
  480. -- low flags: 00
  481. -- high flags: 8006
  482. -- rect: left=106 top=297 right=317 bottom=237
  483. -- title width / last selected line: 0
  484. -- icon id / first selected line: 0 / 0
  485. -- text alignment: 1
  486. -- font id: 0
  487. -- text size: 12
  488. -- style flags: 0
  489. -- line height: 16
  490. -- part name: Thunder
  491. ----- HyperTalk script -----
  492. on mouseUp
  493.   global playWhat
  494.   set hilite of button ID 4 to FALSE
  495.   set hilite of button ID 5 to FALSE
  496.   set hilite of button ID 6 to FALSE
  497.   set hilite of button ID 7 to FALSE
  498.   set hilite of button ID 8 to FALSE
  499.   set hilite of button ID 9 to FALSE
  500.   set hilite of button ID 10 to FALSE
  501.   set hilite of button ID 11 to FALSE
  502.   set hilite of button ID 12 to FALSE
  503.   set hilite of button ID 13 to FALSE
  504.   set hilite of button ID 20 to TRUE
  505.   set hilite of button ID 21 to FALSE
  506.   put "Thunder" into playWhat
  507.   put quote before playWhat
  508.   put quote after playWhat
  509. end mouseUp
  510.  
  511.  
  512.  
  513. -- part 21 (button)
  514. -- low flags: 00
  515. -- high flags: 8006
  516. -- rect: left=277 top=297 right=319 bottom=420
  517. -- title width / last selected line: 0
  518. -- icon id / first selected line: 0 / 0
  519. -- text alignment: 1
  520. -- font id: 0
  521. -- text size: 12
  522. -- style flags: 0
  523. -- line height: 16
  524. -- part name: Yabba Dabba Doo
  525. ----- HyperTalk script -----
  526. on mouseUp
  527.   global playWhat
  528.   set hilite of button ID 4 to FALSE
  529.   set hilite of button ID 5 to FALSE
  530.   set hilite of button ID 6 to FALSE
  531.   set hilite of button ID 7 to FALSE
  532.   set hilite of button ID 8 to FALSE
  533.   set hilite of button ID 9 to FALSE
  534.   set hilite of button ID 10 to FALSE
  535.   set hilite of button ID 11 to FALSE
  536.   set hilite of button ID 12 to FALSE
  537.   set hilite of button ID 13 to FALSE
  538.   set hilite of button ID 20 to FALSE
  539.   set hilite of button ID 21 to TRUE
  540.   put "Yabba" into playWhat
  541.   put quote before playWhat
  542.   put quote after playWhat
  543. end mouseUp
  544.  
  545.